home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2004 July
/
CMCD0704.ISO
/
Software
/
Shareware
/
Comunicatii
/
feedaemon
/
fd110rc5.exe
/
{app}
/
FeedDemon.exe
/
0
/
RCDATA
/
TFADDCHANNEL
/
TFADDCHANNEL.txt
< prev
Wrap
Text File
|
2004-05-31
|
17KB
|
660 lines
object fAddChannel: TfAddChannel
Left = 266
Top = 227
ActiveControl = cxPage
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Channels'
ClientHeight = 410
ClientWidth = 592
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
Position = poScreenCenter
ShowHint = True
OnCreate = FormCreate
OnDestroy = FormDestroy
OnKeyDown = FormKeyDown
PixelsPerInch = 96
TextHeight = 13
object bvlBottom: TBevel
Left = 0
Top = 368
Width = 592
Height = 42
Align = alBottom
Shape = bsTopLine
end
object shpWizBk: TShape
Left = 0
Top = 0
Width = 136
Height = 368
Align = alLeft
Pen.Color = clWhite
end
object imgWizNewGroup: TImage
Left = 16
Top = 42
Width = 106
Height = 281
AutoSize = True
Picture.Data = {<image000.bmp>}
Visible = False
end
object imgWizNewChannel: TImage
Left = 17
Top = 47
Width = 106
Height = 300
AutoSize = True
Picture.Data = {<image001.bmp>}
end
object cxPage: TnbPageControl
Left = 136
Top = 0
Width = 456
Height = 368
ActivePage = cxTabStart
Align = alClient
Options = [pcoTopToBottomText]
TabOrder = 0
TabPosition = tpRight
ClientRectBottom = 368
ClientRectRight = 433
ClientRectTop = 0
object cxTabStart: TcxTabSheet
Caption = 'Start'
Color = clWhite
object htmlAddGroup: THTMLabel
Left = 32
Top = 98
Width = 401
Height = 19
AnchorHint = False
AutoSizing = True
AutoSizeType = asVertical
Ellipsis = False
HintShowFull = False
Hover = False
HoverColor = clNone
HoverFontColor = clNone
HTMLHint = False
HTMLText.Strings = (
'(runtime)')
ShadowColor = clGray
ShadowOffset = 2
Transparent = True
URLColor = clBlue
VAlignment = tvaTop
end
object lblStart: TLabel
Left = 32
Top = 35
Width = 161
Height = 19
Caption = '(SET AT RUN TIME)'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object htmlAddChannel: THTMLabel
Left = 32
Top = 98
Width = 401
Height = 19
AnchorHint = False
AutoSizing = True
AutoSizeType = asVertical
Ellipsis = False
HintShowFull = False
Hover = False
HoverColor = clNone
HoverFontColor = clNone
HTMLHint = False
HTMLText.Strings = (
'(runtime)')
ShadowColor = clGray
ShadowOffset = 2
Transparent = True
URLColor = clBlue
VAlignment = tvaTop
end
object pnlChanSrc: TPanel
Left = 32
Top = 160
Width = 401
Height = 137
ParentColor = True
TabOrder = 0
object optChanSrc_URL: TRadioButton
Left = 0
Top = 7
Width = 350
Height = 17
Caption = 'optChanSrc_URL'
Checked = True
TabOrder = 0
TabStop = True
end
object optChanSrc_Dir: TRadioButton
Left = 0
Top = 35
Width = 350
Height = 17
Caption = 'optChanSrc_Dir'
TabOrder = 1
end
object optChanSrc_Group: TRadioButton
Left = 0
Top = 63
Width = 350
Height = 17
Caption = 'optChanSrc_Group'
TabOrder = 2
end
end
object pnlGroupSrc: TPanel
Left = 32
Top = 247
Width = 401
Height = 121
ParentColor = True
TabOrder = 1
object optGroupSrc_Empty: TRadioButton
Left = 0
Top = 7
Width = 350
Height = 17
Caption = 'optGroupSrc_Empty'
Checked = True
TabOrder = 0
TabStop = True
end
object optGroupSrc_Dir: TRadioButton
Left = 0
Top = 34
Width = 350
Height = 17
Caption = 'optGroupSrc_Dir'
TabOrder = 1
end
end
end
object cxTabChanURL: TcxTabSheet
Caption = 'ChanURL'
Color = clWhite
object htmlNewsfeedURL: THTMLabel
Left = 32
Top = 50
Width = 369
Height = 18
AnchorHint = False
AutoSizing = True
AutoSizeType = asVertical
Ellipsis = False
HintShowFull = False
Hover = False
HoverColor = clNone
HoverFontColor = clNone
HTMLHint = False
HTMLText.Strings = (
'(read from lang file)')
ShadowColor = clGray
ShadowOffset = 2
Transparent = True
URLColor = clBlue
VAlignment = tvaTop
end
object htmlNewsfeedAutoDiscover: THTMLabel
Left = 32
Top = 143
Width = 369
Height = 18
AnchorHint = False
AutoSizing = True
AutoSizeType = asVertical
Ellipsis = False
HintShowFull = False
Hover = False
HoverColor = clNone
HoverFontColor = clNone
HTMLHint = False
HTMLText.Strings = (
'(read from lang file)')
ShadowColor = clGray
ShadowOffset = 2
Transparent = True
URLColor = clBlue
VAlignment = tvaTop
end
object txtNewsFeed: TEdit
Left = 32
Top = 99
Width = 360
Height = 21
TabOrder = 0
Text = 'http://'
end
object chkVerifyNewsfeed: TCheckBox
Left = 32
Top = 233
Width = 369
Height = 17
Caption = 'Auto-discover and &verify the newsfeed'
Checked = True
State = cbChecked
TabOrder = 1
end
end
object cxTabChanTitle: TcxTabSheet
Caption = 'ChanTitle'
Color = clWhite
object htmlChanTitle: THTMLabel
Left = 32
Top = 50
Width = 369
Height = 18
AnchorHint = False
AutoSizing = True
AutoSizeType = asVertical
Ellipsis = False
HintShowFull = False
Hover = False
HoverColor = clNone
HoverFontColor = clNone
HTMLHint = False
HTMLText.Strings = (
'(read from lang file)')
ShadowColor = clGray
ShadowOffset = 2
Transparent = True
URLColor = clBlue
VAlignment = tvaTop
end
object htmlDestGroup: THTMLabel
Left = 32
Top = 139
Width = 369
Height = 18
AnchorHint = False
AutoSizing = True
AutoSizeType = asVertical
Ellipsis = False
HintShowFull = False
Hover = False
HoverColor = clNone
HoverFontColor = clNone
HTMLHint = False
HTMLText.Strings = (
'(read from lang file)')
ShadowColor = clGray
ShadowOffset = 2
Transparent = True
URLColor = clBlue
VAlignment = tvaTop
Visible = False
end
object txtChanTitle: TnbChannelTitleEdit
Left = 32
Top = 94
Width = 257
Height = 21
MaxLength = 255
TabOrder = 0
end
object nbDestGroupList: TnbListingListBox
Left = 32
Top = 169
Width = 393
Height = 164
Style = lbOwnerDrawVariable
ItemHeight = 16
TabOrder = 1
Visible = False
HighlightItemIndex = -1
end
end
object cxTabListTitle: TcxTabSheet
Caption = 'ListTitle'
Color = clWhite
object htmlGroupTitle: THTMLabel
Left = 32
Top = 50
Width = 340
Height = 19
AnchorHint = False
AutoSizing = True
AutoSizeType = asVertical
Ellipsis = False
HintShowFull = False
Hover = False
HoverColor = clNone
HoverFontColor = clNone
HTMLHint = False
HTMLText.Strings = (
'(read from lang file)')
ShadowColor = clGray
ShadowOffset = 2
Transparent = True
URLColor = clBlue
VAlignment = tvaTop
end
object txtListTitle: TEdit
Left = 32
Top = 94
Width = 340
Height = 21
TabOrder = 0
end
end
object cxTabDirectory: TcxTabSheet
Caption = 'Dir'
Color = clWhite
object htmlDirectory: THTMLabel
Left = 32
Top = 50
Width = 369
Height = 19
AnchorHint = False
AutoSizing = True
AutoSizeType = asVertical
Ellipsis = False
HintShowFull = False
Hover = False
HoverColor = clNone
HoverFontColor = clNone
HTMLHint = False
HTMLText.Strings = (
'(set at runtime)')
ShadowColor = clGray
ShadowOffset = 2
Transparent = True
URLColor = clBlue
VAlignment = tvaTop
end
object cboDirectory: TComboBox
Left = 32
Top = 94
Width = 321
Height = 24
ItemHeight = 0
TabOrder = 1
OnChange = cboDirectoryChange
end
object btnDirLocal: TBitBtn
Left = 357
Top = 94
Width = 27
Height = 21
TabOrder = 0
OnClick = btnDirLocalClick
Glyph.Data = {
36030000424D3603000000000000360000002800000010000000100000000100
18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FF1696CB1F9FD11293CBFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF1696CB
9AF3FB6CEAF830B1DC30B1DC30B1DC1FA0D31395CBFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FF1696CB90E2F287FFFF7FFBFF81FAFF7DF4FF74
EEFE69E3F830B1DC30B1DC23A5D5FF00FFFF00FFFF00FFFF00FFFF00FF1696CB
72CBE696FEFF77F6FF78F3FF77F2FF76F2FF76F0FF77F0FF7DF3FF5AD3F2199A
D0FF00FFFF00FFFF00FFFF00FF1696CB1696CB95EBF878F8FF78F3FF77F2FF75
F0FF74EEFE72EDFE73EDFF5CD5F33CBBE3FF00FFFF00FFFF00FFFF00FF1696CB
60DDF01696CB87FEFF74F4FF75F3FF73F0FF74EEFE72EDFE73EDFF57D3F20156
03189CCFFF00FFFF00FFFF00FF1696CB7AF7FC1696CB92E2F292EBF88EEDFA8A
F4FF73EFFF70EDFE0156030C7518058C0D015603FF00FFFF00FFFF00FF1696CB
86FEFF6CEEFA1696CB1696CB1696CB1696CB9AEEFA046A09058C0D058C0D058C
0D199C2E0F92CAFF00FFFF00FF1696CB82FBFF7EFAFF7DFAFF7DF8FF77F4FF51
D4EF036406046A09035A08058C0D058C0D058C0D097412FF00FFFF00FF1696CB
83FCFF7BF8FF79F6FF78F3FF79F4FF7AF7FF6AEAFC1696CB035A0813A1240156
03015603015603FF00FFFF00FF1696CB8EFFFF7BFBFF79F7FF7AF6FF76E7F877
E6F87DE9FB7EEDFC0364062AC04C015603036906015603FF00FFFF00FF1392CA
1696CB87F2FA88F4FC0156031899CE1392CA1696CB0364063ED76D3ED76D0156
03FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF1696CB1C99CE1898CC0156033E
D76D3ED76D3ED76D015603015603036706FF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FF015603015603015603036406025F05FF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
end
end
object cxTabListing: TcxTabSheet
Caption = 'Listing'
Color = clWhite
object htmlGroup: THTMLabel
Left = 32
Top = 50
Width = 390
Height = 19
AnchorHint = False
AutoSizing = True
AutoSizeType = asVertical
Ellipsis = False
HintShowFull = False
Hover = False
HoverColor = clNone
HoverFontColor = clNone
HTMLHint = False
HTMLText.Strings = (
'Select the <B>listing</B> from which to copy channels')
ShadowColor = clGray
ShadowOffset = 2
Transparent = True
URLColor = clBlue
VAlignment = tvaTop
end
object lstGroups: TnbListingListBox
Left = 32
Top = 94
Width = 390
Height = 241
Style = lbOwnerDrawVariable
ItemHeight = 13
TabOrder = 0
OnDblClick = lstGroupsDblClick
HighlightItemIndex = -1
end
end
object cxTabChannelList: TcxTabSheet
Caption = 'Chan List'
Color = clWhite
object htmlChannelList: THTMLabel
Left = 8
Top = 14
Width = 430
Height = 19
AnchorHint = False
AutoSizing = True
AutoSizeType = asVertical
Ellipsis = False
HintShowFull = False
Hover = False
HoverColor = clNone
HoverFontColor = clNone
HTMLHint = False
HTMLText.Strings = (
'Place a checkmark next to each channel you wish to add.')
ShadowColor = clGray
ShadowOffset = 2
Transparent = True
URLColor = clBlue
VAlignment = tvaTop
end
object lblFilterList: TLabel
Left = 8
Top = 328
Width = 22
Height = 13
Caption = 'Filter'
end
object lvwChannelList: TnbChannelListView
Left = 8
Top = 40
Width = 430
Height = 273
BevelInner = bvNone
BevelKind = bkFlat
BorderStyle = bsNone
Checkboxes = True
Columns = <>
GridLines = True
HideSelection = False
ReadOnly = True
RowSelect = True
SortType = stText
TabOrder = 0
ViewStyle = vsReport
OnClick = lvwChannelListClick
end
object txtFilter: TEdit
Left = 61
Top = 325
Width = 159
Height = 21
TabOrder = 1
OnEnter = txtFilterEnter
OnExit = txtFilterExit
OnKeyDown = txtFilterKeyDown
OnKeyUp = txtFilterKeyUp
end
object btnSelectAll: TButton
Left = 254
Top = 324
Width = 89
Height = 25
Caption = 'btnSelectAll'
TabOrder = 2
OnClick = btnSelectAllClick
end
object btnUnselectAll: TButton
Left = 349
Top = 324
Width = 89
Height = 25
Caption = 'btnUnselectAll'
TabOrder = 3
OnClick = btnUnselectAllClick
end
end
object cxTabChanFin: TcxTabSheet
Caption = 'ChanFin'
Color = clWhite
object htmlChanFinish: THTMLabel
Left = 30
Top = 32
Width = 393
Height = 49
AnchorHint = False
AutoSizing = False
AutoSizeType = asVertical
Ellipsis = False
HintShowFull = False
Hover = False
HoverColor = clNone
HoverFontColor = clNone
HTMLHint = False
HTMLText.Strings = (
'(read from lang resource)')
ShadowColor = clGray
ShadowOffset = 2
URLColor = clBlue
VAlignment = tvaTop
end
end
object cxTabListingFinish: TcxTabSheet
Caption = 'ListFin'
Color = clWhite
object htmlListFinish: THTMLabel
Left = 30
Top = 32
Width = 393
Height = 49
AnchorHint = False
AutoSizing = False
AutoSizeType = asVertical
Ellipsis = False
HintShowFull = False
Hover = False
HoverColor = clNone
HoverFontColor = clNone
HTMLHint = False
HTMLText.Strings = (
'(read from lang resource)')
ShadowColor = clGray
ShadowOffset = 2
URLColor = clBlue
VAlignment = tvaTop
end
end
end
object btnNext: TButton
Left = 411
Top = 377
Width = 75
Height = 25
Caption = 'Next >'
Default = True
TabOrder = 1
OnClick = btnNextClick
end
object btnCancel: TButton
Left = 504
Top = 377
Width = 75
Height = 25
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 2
end
object btnBack: TButton
Left = 331
Top = 377
Width = 75
Height = 25
Caption = '< &Back'
Enabled = False
TabOrder = 3
OnClick = btnBackClick
end
object pnlStatus: TPanel
Left = 13
Top = 379
Width = 223
Height = 21
Alignment = taLeftJustify
BevelOuter = bvNone
TabOrder = 4
end
object btnStopHttp: TButton
Left = 245
Top = 379
Width = 57
Height = 21
Caption = '&Stop'
TabOrder = 5
Visible = False
OnClick = btnStopHttpClick
end
object appEvents: TApplicationEvents
OnActivate = appEventsActivate
Left = 24
Top = 369
end
object tmrFilter: TTimer
Enabled = False
Interval = 750
OnTimer = tmrFilterTimer
Left = 544
Top = 369
end
end